home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1995 January / 1995-01b.d64 / text scroll (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  6KB  |  134 lines
  1. 0 rem copyright 1995 - compute publication intl ltd - all rights reserved
  2. 1 x=x+1:ifx=1thenprint"[147]one moment":fort=0to1323:reada:poke49152+t,a:nextt
  3. 6 poke53280,0:poke53281,0
  4. 11 ifx>2thensys49152:gosub171:goto56
  5. 16 dimit$(14):gosub171:goto56
  6. 21 print"[147]write a page of text 14 lines 32 bytes"
  7. 26 print"  hit any key to continue"
  8. 31 geta$:ifa$=""then31
  9. 36 fort=1to14:b$="type line"+str$(t):printb$:input"text";ln$
  10. 41 l=len(ln$):ifl<32thengosub141
  11. 46 it$(t)=left$(ln$,32)
  12. 51 nextt:gosub161
  13. 56 c=peek(50000):print"[147]"+chr$(peek(50011+c))
  14. 61 fort=1to14:printstr$(t);" ";it$(t):nextt
  15. 66 print"v view l load ssave or * write page"
  16. 71 print"d to display scroll effect or e to edit"
  17. 76 print"c to change character color"
  18. 81 print"q to quit"
  19. 86 geta$:ifa$=""then86
  20. 91 ifa$="*"then21
  21. 96 ifa$="v"then56
  22. 101 ifa$="e"thengosub201:gosub161:goto56
  23. 106 ifa$="c"thengosub231:goto56
  24. 111 ifa$="q"thenprint"[147]":end
  25. 116 ifa$="s"thengosub181:goto66
  26. 121 ifa$="l"then151
  27. 126 ifa$="d"thensys49152:goto56
  28. 131 ifa$="r"then21
  29. 136 goto86
  30. 141 a$=" .................................."
  31. 146 ln$=ln$+a$:ln$=left$(ln$,32):return
  32. 151 print:input"load filename";it$
  33. 156 loadit$,8,1
  34. 161 x=50027:fort=1to14
  35. 166 forr=1to32:a=asc(mid$(it$(t),r,1)):pokex,a:x=x+1:nextr,t:return
  36. 171 x=50027:fort=1to14:it$(t)=""
  37. 176 forr=1to32:it$(t)=it$(t)+chr$(peek(x)):x=x+1:nextr,t:return
  38. 181 print:input"filename";it$
  39. 186 ea=50475:sa=49152
  40. 191 sys57812it$,8:poke173,sa/256:poke172,sa-peek(173)*256:poke780,172
  41. 196 poke782,ea/256:poke781,ea-peek(782)*256:sys65496:return
  42. 201 print:input"line number";n
  43. 206 ifn<1orn>14then201
  44. 211 print:printit$(n)
  45. 216 print"enter line"
  46. 221 input"";ln$
  47. 226 gosub141:it$(n)=left$(ln$,32):return
  48. 231 print:input"color 0-15";c
  49. 236 ifc>15then231
  50. 241 poke50000,c:return
  51. 900 data216,174,80,195,189,91,195,32,210,255,169,0,141,32,208,141
  52. 901 data33,208,169,147,32,210,255,160,0,169,4,133,252,169,216,133
  53. 902 data254,169,0,133,251,133,253,32,69,193,145,251,138,145,253,200
  54. 903 data32,69,193,145,251,138,145,253,200,192,40,144,234,162,0,160
  55. 904 data0,32,139,194,32,167,194,142,88,195,32,69,193,145,251,138
  56. 905 data145,253,160,39,32,69,193,145,251,138,145,253,174,88,195,160
  57. 906 data0,232,224,22,208,219,162,0,160,0,32,139,194,32,167,194
  58. 907 data32,69,193,145,251,138,145,253,200,32,69,193,145,251,138,145
  59. 908 data253,200,192,40,144,234,162,0,160,0,169,17,32,210,255,200
  60. 909 data192,5,208,246,169,0,141,83,195,169,107,133,253,169,195,133
  61. 910 data254,169,201,141,85,195,169,4,141,86,195,160,0,32,69,194
  62. 911 data32,104,194,24,32,7,195,177,253,141,90,195,32,231,194,32
  63. 912 data210,255,140,81,195,24,165,253,105,31,133,251,165,254,105,0
  64. 913 data133,252,56,165,251,237,81,195,133,251,165,252,233,0,133,252
  65. 914 data140,81,195,160,0,177,251,141,90,195,32,231,194,32,210,255
  66. 915 data172,81,195,32,104,193,200,192,16,208,178,160,0,24,165,253
  67. 916 data105,32,133,253,165,254,105,0,133,254,169,13,32,210,255,24
  68. 917 data173,85,195,105,40,141,85,195,173,86,195,105,0,141,86,195
  69. 918 data24,173,83,195,105,1,141,83,195,201,14,208,21,169,0,141
  70. 919 data83,195,32,36,195,165,203,201,64,208,6,32,104,193,76,53
  71. 920 data193,96,76,171,192,173,87,195,201,46,240,12,201,42,240,16
  72. 921 data169,46,141,87,195,162,1,96,169,42,141,87,195,162,2,96
  73. 922 data169,45,141,87,195,162,6,96,140,84,195,160,0,152,170,141
  74. 923 data82,195,200,192,128,208,251,160,0,232,224,128,208,251,24,173
  75. 924 data82,195,105,1,141,82,195,201,30,208,231,169,0,133,251,169
  76. 925 data216,133,252,160,0,177,251,141,89,195,160,1,177,251,136,145
  77. 926 data251,200,200,192,40,208,245,136,173,89,195,145,251,169,152,133
  78. 927 data251,169,219,133,252,160,0,177,251,141,89,195,160,1,177,251
  79. 928 data136,145,251,200,200,192,40,208,245,136,173,89,195,145,251,169
  80. 929 data40,133,251,169,216,133,252,160,0,177,251,141,89,195,32,139
  81. 930 data194,177,251,141,90,195,32,153,194,173,90,195,145,251,32,139
  82. 931 data194,32,139,194,165,252,201,219,208,231,165,251,201,152,208,225
  83. 932 data32,153,194,173,89,195,145,251,169,79,133,251,169,216,133,252
  84. 933 data160,0,177,251,141,89,195,32,139,194,177,251,141,90,195,32
  85. 934 data153,194,173,90,195,145,251,32,139,194,32,139,194,165,252,201
  86. 935 data219,208,231,165,251,201,191,208,225,32,153,194,173,89,195,145
  87. 936 data251,172,84,195,96,140,84,195,160,1,173,85,195,133,251,173
  88. 937 data86,195,133,252,162,0,177,251,136,145,251,32,181,194,200,200
  89. 938 data192,19,208,242,172,84,195,96,140,84,195,160,36,173,85,195
  90. 939 data133,251,173,86,195,133,252,162,0,177,251,200,145,251,32,181
  91. 940 data194,136,136,192,18,208,242,172,84,195,96,24,165,251,105,40
  92. 941 data133,251,165,252,105,0,133,252,96,56,165,251,233,40,133,251
  93. 942 data165,252,233,0,133,252,96,24,165,253,105,40,133,253,165,254
  94. 943 data105,0,133,254,96,141,90,195,165,251,72,165,252,72,173,90
  95. 944 data195,201,27,176,29,174,80,195,24,165,251,105,0,133,251,165
  96. 945 data252,105,212,133,252,138,145,251,104,133,252,104,133,251,173,90
  97. 946 data195,96,162,14,76,200,194,173,90,195,201,65,144,17,201,91
  98. 947 data176,13,174,80,195,189,91,195,32,210,255,173,90,195,96,169
  99. 948 data154,32,210,255,76,251,194,140,84,195,169,13,32,210,255,169
  100. 949 data145,32,210,255,160,0,169,29,32,210,255,200,192,19,208,246
  101. 950 data172,84,195,96,160,0,185,50,195,32,210,255,200,192,30,208
  102. 951 data245,96,13,13,28,29,29,32,32,32,32,32,32,32,32,32
  103. 952 data32,80,82,69,83,83,32,65,78,89,32,75,69,89,32,33
  104. 953 data6,0,0,0,0,0,0,46,0,0,0,144,5,28,159,156
  105. 954 data30,31,158,129,149,150,151,152,153,154,155,84,69,88,84,32
  106. 955 data83,67,82,79,76,76,69,82,32,38,32,83,67,82,69,69
  107. 956 data78,32,68,69,83,73,71,78,69,82,32,46,46,46,46,46
  108. 957 data46,46,46,46,46,46,46,46,46,46,46,46,46,46,46,46
  109. 958 data46,46,46,46,46,46,46,46,46,46,46,62,62,62,62,62
  110. 959 data62,62,62,62,62,62,62,62,62,62,62,60,60,60,60,60
  111. 960 data60,60,60,60,60,60,60,60,60,60,60,40,67,41,32,49
  112. 961 data57,57,53,32,67,79,77,80,85,84,69,32,80,85,66,46
  113. 962 data32,73,78,84,46,32,76,84,68,46,32,45,45,45,45,45
  114. 963 data45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45
  115. 964 data45,45,45,45,45,45,45,45,45,45,45,68,69,83,73,71
  116. 965 data78,32,65,32,83,67,82,69,69,78,32,32,65,78,68,32
  117. 966 data83,65,86,69,32,73,84,32,85,78,68,69,82,32,65,78
  118. 967 data89,32,78,65,77,69,32,70,79,82,32,69,88,65,77,80
  119. 968 data76,69,32,34,70,73,76,69,34,32,32,76,79,65,68,32
  120. 969 data84,72,69,32,83,65,86,69,68,32,70,73,76,69,32,70
  121. 970 data82,79,77,32,65,32,66,65,83,73,67,80,82,79,71,82
  122. 971 data65,77,32,85,83,73,78,71,32,84,72,69,32,70,79,76
  123. 972 data76,79,87,73,78,71,32,76,73,78,69,49,32,88,61,88
  124. 973 data43,49,58,73,70,88,61,49,84,72,69,78,32,76,79,65
  125. 974 data68,34,70,73,76,69,34,44,56,44,49,84,72,69,32,70
  126. 975 data73,76,69,32,67,65,78,32,66,69,32,65,67,84,73,86
  127. 976 data65,84,69,68,32,87,73,84,72,32,32,83,89,83,52,57
  128. 977 data49,53,50,32,32,70,82,79,77,32,65,78,89,32,76,73
  129. 978 data78,69,32,78,85,77,66,69,82,46,32,46,45,46,45,46
  130. 979 data45,46,45,46,45,32,66,89,32,68,65,78,73,69,76,32
  131. 980 data67,46,32,76,73,71,72,84,78,69,82,42,46,42,46,42
  132. 981 data46,42,46,42,46,42,46,42,46,42,46,42,46,42,46,42
  133. 982 data46,42,46,42,46,42,46,42,46,42,46,204
  134.